home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / fdical.zip / MENU.PRG < prev    next >
Text File  |  1993-01-04  |  997b  |  45 lines
  1. *  MENU.PRG
  2. DO prologue            &&   standard prologue
  3.  
  4. SET EXCLUSIVE OFF
  5.  
  6. DO std_set             &&   standard initialization from SETUP.DBF
  7. DO netprint
  8. mhead_2    = CENTER([Calendar],36)
  9.  
  10. DO backdrop
  11. CO_CHG(c_menus)
  12. DO topscreen
  13. DO box WITH 7,18,6,40,[Main Menu],.F.
  14. SAVE SCREEN TO menuscreen
  15.  
  16. DO WHIL .T.
  17.    scr_file = [F_]+ msta +[_1]        && saves screens to mem files
  18.    SET MESSAGE TO 24
  19.    @ 24,0
  20.    @ 10,23  PROMPT [Events                   ] MESSAGE []
  21.    @ 11,23  PROMPT [Print Calendar           ] MESSAGE []
  22.    @ 12,23  PROMPT [Setup                    ] MESSAGE [System setup screen]
  23.    MENU TO xchoice
  24.  
  25.    BEGIN SEQUENCE
  26.       DO CASE
  27.          CASE xchoice = 0
  28.             DO leave
  29.  
  30.          CASE xchoice = 1
  31.             DO ev_MAINT
  32.  
  33.          CASE xchoice = 2
  34.             DO cal_rep
  35.          CASE xchoice = 3
  36.             DO std_define
  37.       ENDCASE
  38.    END SEQUENCE
  39.  
  40.    CLOSE DATA
  41.    RESTORE SCREEN FROM menuscreen
  42. ENDDO
  43. ** EOF ***
  44.  
  45.